home *** CD-ROM | disk | FTP | other *** search
/ The CICA Windows Explosion! / The CICA Windows Explosion! - Disc 1.iso / util / thedit20.zip / block.rex < prev    next >
OS/2 REXX Batch file  |  1994-12-27  |  766b  |  15 lines
  1.  
  2.                 /* This program is block structured ! */
  3.         /* Author unknown - ported to REXX from ND Fortran by */
  4.             /* Anders Christensen -- anders@solan.unit.no */
  5.      
  6.    signal=(interpret=value);value=(interpret<parse);do upper=value to value
  7.    end;exit=upper*upper*upper*upper-value-upper;say=' ';return=say say say;
  8.    with.=signal;;do then=value to exit;pull='';do otherwise=upper to then-,
  9.    value;select=otherwise-value;if.otherwise=with.otherwise+with.select;end
  10.    if.value=value;if.then=value;;do otherwise=value to exit-then;pull=pull,
  11.    say''say;;end;do otherwise=value to then;pull=pull center(if.otherwise,,
  12.    length(return));end;say pull;do otherwise=value to exit;with.otherwise=,
  13.    if.otherwise;end;end;exit
  14.  
  15.